define I:integer;
define Massiv:integer[5];
define J:integer;
define K:integer;
define Tmp:integer;
begin
 for I=1 to 5 do
  begin
   PrintS("Введите M[")
   PrintW(I)
   PrintS("]: ")
   Massiv[I]=Con
   PrintS(""L)
  end
 for J=1 to 5 do
  for K=1 to 4 do
   begin
    if Massiv[K]>Massiv[K+1] then
     begin
      Tmp=Massiv[k]
      Massiv[K]=Massiv[K+1]
      Massiv[K+1]=Tmp
     end
   end
 for I=1 to 5 do
  begin
   PrintS("M[")
   PrintW(I)
   PrintS("]=")
   PrintW(Massiv[I])
   PrintS(""L)
  end

end.